home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
ansc174.zip
/
R-PCANSI.MRG
< prev
next >
Wrap
Text File
|
1992-07-10
|
3KB
|
59 lines
* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against RBBS-PC.BAS to produce RBBS-PC.NEW
* RBBS-PC.BAS: Date 6-20-1992 Size 147219 bytes
* ------------[ Created 06-28-1992 22:17:42 ]------------
* REPLACING old line(s) by new
100 CLEAR,,ZSizeOfStack
* ------[ first line different ]------
ZANSITest = ZFalse ' DD062801/ANSICHAT
CALL VarInit
IF ZErrCode > 0 THEN _
GOTO 31
OrigUpgradeSec = ZAutoUpgradeSec
OrigMainSec = ZMinLogonSec
CALL BreakFileName (ZOrigMsgFile$,Drive$,OrigMsgName$,ZWasY$,ZFalse)
IF OrigMsgName$ = "MESSAGES" THEN _
OrigMsgName$ = "MAIN" _
ELSE IF RIGHT$(OrigMsgName$,1) = "M" THEN _
OrigMsgName$ = LEFT$(OrigMsgName$,LEN(OrigMsgName$)-1)
ConfFileName$ = OrigMsgName$
OrigNewsFileName$ = ZWelcomeFileDrvPath$ + _
OrigMsgName$ + ".NWS"
ZNewsFileName$ = OrigNewsFileName$
IF ZNetMail$ <> "NONE" AND VAL(ZNetTime$) > 0 THEN _
ZLimitMinsPerSession = VAL(ZNetTime$)
IF ZNetMail$ <> "NONE" AND VAL(ZNetBaud$) > 0 THEN _
ZExpectActiveModem = ZTrue : _
IF NOT ZKeepInitBaud THEN _
ZModemInitBaud$ = ZNetBaud$
IF ZFossil THEN _
ZComPort = VAL(RIGHT$(ZComPort$,1)) - 1 : _
IF ZComPort < 0 THEN _
GOTO 108 _
ELSE CALL FOSinit(ZComPort,Result) : _
IF Result = -1 THEN _
ZSnoop = ZTrue : _
CALL PScrn("ERROR INITIALIZING FOSSIL") : _
GOTO 204
* REPLACING old line(s) by new
4765 CALL UpdtCalr ("Paged & chatted with Sysop",1)
* ------[ first line different ]------
ZPageStatus$ = ""
ZSysopGreeting$ = "SysOp in! " + ZFirstName$ + ", this is " + _ ' DD062801/ANSICHAT
ZSysopFirstName$ + ", go ahead!" ' DD062801/ANSICHAT
* REPLACING old line(s) by new
* ------[ first line different ]------
4770 IF ZANSITest = ZTrue OR ZWasGR > 1 THEN ' DD062801/ANSICHAT
CALL ANSIChat ' DD062801/ANSICHAT
ELSE ' DD062801/ANSICHAT
CALL SkipLine (1) ' DD062801/ANSICHAT
CALL QuickTPut1 (ZSysopGreeting$) ' DD062801/ANSICHAT
CALL SysopChat ' DD062801/ANSICHAT
END IF ' DD062801/ANSICHAT
IF ZSubParm < 0 THEN _
GOTO 202
RETURN
'
' **** S - COMMAND FROM UTILITY MENU (STATISTICS) ***
'